R Notebook

library(Seurat)
library(cowplot)
library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

library(tidyr)

What do the clusters represent?

plot_featuresplots <- function(df, features){
  plots <- FeaturePlot(df, features=features, combine = FALSE, pt.size=1)
  for(i in 1:length(plots)) {
    plots[[i]] <- plots[[i]] + NoAxes()
  }
  plot_grid(plotlist=plots, ncol=2)
}

plot_featureplots(wolfrum, features=pos_markers_top20[pos_markers_top20$cluster == 0]$gene)

plot_grid(plotlist=plots, ncol=3)

plot_grid(plotlist=plots, ncol=3)